unit MetodosProduto;

interface

uses Funcoes, DMcaixa, SysUtils, Dialogs;

type

 TMetodosProduto   = class


 protected
    constructor Create;

    destructor  Destroy;

 public
 
    function ConsultarProduto(codigoProduto : String) : String ;

 end;



implementation



{construtor da classe}
constructor TMetodosProduto.Create;
begin
  inherited Create;
end;



{destrutor da classe}
destructor TMetodosProduto.Destroy;
begin
  inherited Destroy;
end;


function TMetodosProduto.ConsultarProduto(codigoProduto : String) : String;
var
   arrayString     : String[82];
   i    , j        : integer;
begin
  PreparaQuery ('select idproduto,codproduto,produto,preven,situacao from estoque_produtos where codproduto=' + chr(39)+
                codigoProduto + chr(39) + ' or codfabricante='+chr(39)+
                codigoProduto + chr(39) + ';', dmcaixas.sqlq_geral);
  ExecutaQuery(dmcaixas.sqlq_geral);


  if not dmcaixas.sqlq_geral.IsEmpty then
  begin
    with dmcaixas.sqlq_geral do
    begin
      arrayString  :=     FormatarString(FieldByName('idproduto').AsString,4,'N')  +
                          FormatarString(FieldByName('codproduto').AsString,13,'N') +
                          FormatarString(FieldByName('produto').AsString,50, 'N')   +
                          FormatarString(FieldByName('preven').AsString,13,'S')     +
                          FieldByName('situacao').AsString   ;
    end;
  end;
  result := arrayString   ;
end;










end.
